PC Professionell 2006 May/PCpro_2006_05.ISO/files/mobile/fma-2.0-stable-setup.exe/{app}/source/uScriptEditor.dfm

Text File | 2004-05-21 | 12.3 KB | 564 lines

object frmEditor: TfrmEditor
  Left = 0
  Top = 0
  Width = 443
  Height = 277
  Align = alClient
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentFont = False
  TabOrder = 0
  object MessagesSplitter1: TSplitter
    Left = 0
    Top = 240
    Width = 443
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    Color = clBtnFace
    ParentColor = False
    Visible = False
    OnMoved = MessagesSplitter1Moved
  end
  object DetailsPanel: TPanel
    Left = 0
    Top = 0
    Width = 443
    Height = 21
    Align = alTop
    Alignment = taLeftJustify
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = '*'
    TabOrder = 0
  end
  object Script: TSynMemo
    Left = 0
    Top = 21
    Width = 443
    Height = 219
    Cursor = crIBeam
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
    Gutter.Font.Charset = RUSSIAN_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -11
    Gutter.Font.Name = 'Tahoma'
    Gutter.Font.Style = []
    Gutter.LeftOffset = 0
    Gutter.ShowLineNumbers = True
    Highlighter = SynVBScriptSyn1
    Keystrokes = <
      item
        Command = ecUp
        ShortCut = 38
      end
      item
        Command = ecSelUp
        ShortCut = 8230
      end
      item
        Command = ecScrollUp
        ShortCut = 16422
      end
      item
        Command = ecDown
        ShortCut = 40
      end
      item
        Command = ecSelDown
        ShortCut = 8232
      end
      item
        Command = ecScrollDown
        ShortCut = 16424
      end
      item
        Command = ecLeft
        ShortCut = 37
      end
      item
        Command = ecSelLeft
        ShortCut = 8229
      end
      item
        Command = ecWordLeft
        ShortCut = 16421
      end
      item
        Command = ecSelWordLeft
        ShortCut = 24613
      end
      item
        Command = ecRight
        ShortCut = 39
      end
      item
        Command = ecSelRight
        ShortCut = 8231
      end
      item
        Command = ecWordRight
        ShortCut = 16423
      end
      item
        Command = ecSelWordRight
        ShortCut = 24615
      end
      item
        Command = ecPageDown
        ShortCut = 34
      end
      item
        Command = ecSelPageDown
        ShortCut = 8226
      end
      item
        Command = ecPageBottom
        ShortCut = 16418
      end
      item
        Command = ecSelPageBottom
        ShortCut = 24610
      end
      item
        Command = ecPageUp
        ShortCut = 33
      end
      item
        Command = ecSelPageUp
        ShortCut = 8225
      end
      item
        Command = ecPageTop
        ShortCut = 16417
      end
      item
        Command = ecSelPageTop
        ShortCut = 24609
      end
      item
        Command = ecLineStart
        ShortCut = 36
      end
      item
        Command = ecSelLineStart
        ShortCut = 8228
      end
      item
        Command = ecEditorTop
        ShortCut = 16420
      end
      item
        Command = ecSelEditorTop
        ShortCut = 24612
      end
      item
        Command = ecLineEnd
        ShortCut = 35
      end
      item
        Command = ecSelLineEnd
        ShortCut = 8227
      end
      item
        Command = ecEditorBottom
        ShortCut = 16419
      end
      item
        Command = ecSelEditorBottom
        ShortCut = 24611
      end
      item
        Command = ecToggleMode
        ShortCut = 45
      end
      item
        Command = ecCopy
        ShortCut = 16429
      end
      item
        Command = ecCut
        ShortCut = 8238
      end
      item
        Command = ecPaste
        ShortCut = 8237
      end
      item
        Command = ecDeleteChar
        ShortCut = 46
      end
      item
        Command = ecDeleteLastChar
        ShortCut = 8
      end
      item
        Command = ecDeleteLastChar
        ShortCut = 8200
      end
      item
        Command = ecDeleteLastWord
        ShortCut = 16392
      end
      item
        Command = ecUndo
        ShortCut = 32776
      end
      item
        Command = ecRedo
        ShortCut = 40968
      end
      item
        Command = ecLineBreak
        ShortCut = 13
      end
      item
        Command = ecLineBreak
        ShortCut = 8205
      end
      item
        Command = ecTab
        ShortCut = 9
      end
      item
        Command = ecShiftTab
        ShortCut = 8201
      end
      item
        Command = ecContextHelp
        ShortCut = 16496
      end
      item
        Command = ecSelectAll
        ShortCut = 16449
      end
      item
        Command = ecCopy
        ShortCut = 16451
      end
      item
        Command = ecPaste
        ShortCut = 16470
      end
      item
        Command = ecCut
        ShortCut = 16472
      end
      item
        Command = ecBlockIndent
        ShortCut = 24649
      end
      item
        Command = ecBlockUnindent
        ShortCut = 24661
      end
      item
        Command = ecLineBreak
        ShortCut = 16461
      end
      item
        Command = ecInsertLine
        ShortCut = 16462
      end
      item
        Command = ecDeleteWord
        ShortCut = 16468
      end
      item
        Command = ecDeleteLine
        ShortCut = 16473
      end
      item
        Command = ecDeleteEOL
        ShortCut = 24665
      end
      item
        Command = ecUndo
        ShortCut = 16474
      end
      item
        Command = ecRedo
        ShortCut = 24666
      end
      item
        Command = ecGotoMarker0
        ShortCut = 16432
      end
      item
        Command = ecGotoMarker1
        ShortCut = 16433
      end
      item
        Command = ecGotoMarker2
        ShortCut = 16434
      end
      item
        Command = ecGotoMarker3
        ShortCut = 16435
      end
      item
        Command = ecGotoMarker4
        ShortCut = 16436
      end
      item
        Command = ecGotoMarker5
        ShortCut = 16437
      end
      item
        Command = ecGotoMarker6
        ShortCut = 16438
      end
      item
        Command = ecGotoMarker7
        ShortCut = 16439
      end
      item
        Command = ecGotoMarker8
        ShortCut = 16440
      end
      item
        Command = ecGotoMarker9
        ShortCut = 16441
      end
      item
        Command = ecSetMarker0
        ShortCut = 24624
      end
      item
        Command = ecSetMarker1
        ShortCut = 24625
      end
      item
        Command = ecSetMarker2
        ShortCut = 24626
      end
      item
        Command = ecSetMarker3
        ShortCut = 24627
      end
      item
        Command = ecSetMarker4
        ShortCut = 24628
      end
      item
        Command = ecSetMarker5
        ShortCut = 24629
      end
      item
        Command = ecSetMarker6
        ShortCut = 24630
      end
      item
        Command = ecSetMarker7
        ShortCut = 24631
      end
      item
        Command = ecSetMarker8
        ShortCut = 24632
      end
      item
        Command = ecSetMarker9
        ShortCut = 24633
      end
      item
        Command = ecNormalSelect
        ShortCut = 24654
      end
      item
        Command = ecColumnSelect
        ShortCut = 24643
      end
      item
        Command = ecLineSelect
        ShortCut = 24652
      end
      item
        Command = ecMatchBracket
        ShortCut = 24642
      end>
    MaxLeftChar = 2048
    MaxUndo = 4096
    Options = [eoAutoIndent, eoDragDropEditing, eoDropFiles, eoGroupUndo, eoKeepCaretX, eoScrollPastEol, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabIndent, eoTabsToSpaces, eoTrimTrailingSpaces]
    RightEdge = 120
    TabWidth = 4
    WantTabs = True
    OnChange = ScriptChange
    OnReplaceText = ScriptReplaceText
    OnStatusChange = ScriptStatusChange
  end
  object MessagesPanel: TPanel
    Left = 0
    Top = 243
    Width = 443
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    Visible = False
    object Panel1: TPanel
      Left = 424
      Top = 0
      Width = 19
      Height = 34
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      DesignSize = (
        19
        34)
      object SpeedButton1: TSpeedButton
        Left = 1
        Top = 0
        Width = 16
        Height = 15
        Anchors = [akTop, akRight]
        Flat = True
        Glyph.Data = {
          D6000000424DD60000000000000076000000280000000C0000000C0000000100
          0400000000006000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          0000333333333333000033333333333300003300333300330000333003300333
          0000333300003333000033333003333300003333000033330000333003300333
          0000330033330033000033333333333300003333333333330000}
        OnClick = SpeedButton1Click
      end
    end
    object MessagesMemo1: TMemo
      Left = 0
      Top = 0
      Width = 424
      Height = 34
      Align = alClient
      ReadOnly = True
      TabOrder = 1
      OnChange = MessagesMemo1Change
    end
  end
  object PrecompileTimer1: TTimer
    Enabled = False
    OnTimer = PrecompileTimer1Timer
    Left = 64
    Top = 44
  end
  object SynVBScriptSyn1: TSynVBScriptSyn
    DefaultFilter = 'VBScript Files (*.vbs)|*.vbs'
    CommentAttri.Foreground = clGreen
    CommentAttri.Style = []
    KeyAttri.Foreground = clNavy
    KeyAttri.Style = []
    StringAttri.Foreground = clMaroon
    Left = 96
    Top = 44
  end
  object ScriptControl: TawScriptControl
    AllowUI = False
    Language = 'VBScript'
    AutoObjects = <>
    Timeout = 30000
    OnError = ScriptControlError
    Left = 96
    Top = 76
  end
  object PopupMenu1: TPopupMenu
    Images = Form1.ImageList2
    OnPopup = PopupMenu1Popup
    Left = 64
    Top = 76
    object FindNextError1: TMenuItem
      Caption = 'Find Next &Error'
      ImageIndex = 51
      ShortCut = 120
      OnClick = FindNextError1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Undo1: TMenuItem
      Action = Form1.EditUndo1
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Cut1: TMenuItem
      Action = Form1.EditCut1
    end
    object Copy1: TMenuItem
      Action = Form1.EditCopy1
    end
    object Paste1: TMenuItem
      Action = Form1.EditPaste1
    end
    object Delete1: TMenuItem
      Action = Form1.ActionDelete
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object SelectAll1: TMenuItem
      Action = Form1.ActionSelectAll
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Find1: TMenuItem
      Caption = 'Find...'
      ImageIndex = 0
      ShortCut = 16454
      OnClick = Find1Click
    end
    object FindNext1: TMenuItem
      Caption = 'Find Next'
      ShortCut = 114
      OnClick = FindNext1Click
    end
    object Replace1: TMenuItem
      Caption = 'Replace...'
      ShortCut = 16456
      OnClick = Replace1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object LoadFromFile1: TMenuItem
      Caption = 'Replace Script...'
      ImageIndex = 17
      ShortCut = 16463
      OnClick = LoadFromFile1Click
    end
    object SaveChanges1: TMenuItem
      Caption = '&Save Changes'
      ImageIndex = 44
      ShortCut = 16467
      OnClick = SaveChanges1Click
    end
  end
  object ReplaceDialog1: TReplaceDialog
    OnFind = ReplaceDialog1Find
    OnReplace = ReplaceDialog1Find
    Left = 128
    Top = 44
  end
  object OpenDialog1: TOpenDialog
    Filter =
      'VBScript (*.vbscript)|*.vbscript;*.vbs|JScript (*.jscript)|*.jsc' +
      'ript|All Files|*.*'
    Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
    Title = 'Select Script File'
    Left = 128
    Top = 76
  end
end